第12章: 使用B4X Libraries擴展功能

在開發行動應用程式時，除了基本的框架和功能外，B4X 提供了豐富的 Libraries（函式庫）來幫助開發者快速擴展應用程式的功能。這些 Libraries 覆蓋了從 UI 元件到後端服務的各種應用場景，大大減少了開發時間並提高了程式的可維護性。本章將介紹如何使用 B4X Libraries 來擴展功能，包括如何加入與管理 Libraries 以及介紹一些常見的 Libraries。

認識B4X Libraries

B4X Libraries 是一組預先定義的函式、類別和資源，這些函式庫能夠簡化許多常見的編程任務。例如，如果你需要在應用程式中整合第三方 API、處理圖片、創建動畫效果，或是使用更高級的 UI 元件，B4X Libraries 都能夠幫助你快速實現這些功能。
B4X Libraries 具有以下幾個特點：
• 跨平台支援：許多 B4X Libraries 都是跨平台的，這意味著你可以在 B4A、B4i 和 B4J 上使用相同的函式庫。
• 社群支持：除了官方提供的 Libraries，B4X 社群也創建了大量的第三方 Libraries，可以進一步擴展開發的可能性。
• 易於整合：B4X Libraries 可以很容易地加入到你的專案中，不需要繁瑣的配置。

如何加入與管理Libraries

在 B4A（或其他 B4X 平台）中加入和管理 Libraries 是非常簡單的過程。以下步驟將指導你如何在專案中使用 B4X Libraries。

1. 加入Libraries
   在 B4A 中，你可以透過 IDE 來方便地加入 Libraries：
   1. 打開你的 B4A 專案。
   2. 點擊工具列上的「Libs」按鈕，這將打開 Libraries 管理窗口。
   3. 在列表中找到你需要的 Libraries，並勾選旁邊的方框來啟用它們。
   4. 點擊「Close」關閉窗口。
      一旦你啟用了 Libraries，你就可以在程式碼中使用它們提供的功能。
2. 管理Libraries
   你可以在專案的不同階段需要不同的 Libraries，因此管理 Libraries 是一個重要的技巧。你可以透過以下方式來有效管理 Libraries：
   • 啟用/停用 Libraries：根據專案的需求啟用或停用特定的 Libraries，這樣可以減少編譯時間並避免不必要的依賴。
   • 更新 Libraries：確保你的 Libraries 是最新版本，以獲得最新的功能和修復。B4X 的 IDE 會在啟動時檢查並提示你更新可用的 Libraries。
   • 移除未使用的 Libraries：定期檢查並移除那些不再使用的 Libraries，這樣可以保持專案的簡潔和清晰。
3. 範例：加入一個 JSON 處理庫
   假設你需要在應用程式中處理 JSON 資料，可以透過以下步驟加入 JSON 處理庫：
   1. 打開專案，點擊「Libs」按鈕。
   2. 在 Libraries 列表中找到 JSON 庫，並勾選它。
   3. 現在你可以在程式碼中使用 JSON 庫的功能，例如解析 JSON 資料。

Sub ParseJson
    Dim json As JSONParser
    Dim jsonString As String = "{'name':'John', 'age':30, 'city':'New York'}"
    json.Initialize(jsonString)
    
    Dim root As Map = json.NextObject
    Dim name As String = root.Get("name")
    Dim age As Int = root.Get("age")
    Dim city As String = root.Get("city")
    
    Log("Name: " & name)
    Log("Age: " & age)
    Log("City: " & city)
End Sub

這個範例展示了如何使用 JSONParser 來解析一個簡單的 JSON 字串，並從中提取數據。

常見的Libraries介紹

B4X 提供了大量實用的 Libraries，以下是一些常見且有用的 Libraries 介紹：

1. OkHttpUtils2：網路請求
   OkHttpUtils2 是一個強大的 HTTP 網路請求函式庫，用於執行 HTTP 請求並處理網路通信。它支援同步和異步請求，並能夠處理 JSON、XML 等各種格式的資料。

Sub DownloadData(url As String)
    Dim job As HttpJob
    job.Initialize("Download", Me)
    job.Download(url)
End Sub

Sub JobDone(job As HttpJob)
    If job.Success Then
        Log("Downloaded: " & job.GetString)
    Else
        Log("Error: " & job.ErrorMessage)
    End If
    job.Release
End Sub

這個範例演示了如何使用 OkHttpUtils2 進行一個簡單的 HTTP 請求並處理響應資料。
2. SQL：資料庫操作
SQL 函式庫提供了強大的 SQLite 資料庫操作支援，適合用於本地資料存取和儲存。它支援 SQL 語句的執行和結果集的處理。

Sub CreateDatabase
    Dim sql As SQL
    sql.Initialize(File.DirInternal, "app_data.db", True)
    
    Dim createTable As String = "CREATE TABLE IF NOT EXISTS users (id INTEGER PRIMARY KEY, name TEXT, age INTEGER)"
    sql.ExecNonQuery(createTable)
    
    Log("Database and table created.")
End Sub

這段程式碼展示了如何使用 SQL 函式庫來建立一個 SQLite 資料庫和資料表。
3. DateUtils：日期與時間操作
DateUtils 是一個處理日期和時間的實用函式庫，提供了日期格式化、日期計算、時間戳轉換等功能。

Sub ShowCurrentDateTime
    Dim currentDate As Long = DateTime.Now
    Dim formattedDate As String = DateTime.Date(currentDate) & " " & DateTime.Time(currentDate)
    
    Log("Current Date and Time: " & formattedDate)
End Sub

這個範例展示了如何使用 DateUtils 來取得並格式化當前日期和時間。
4. XUI：跨平台UI元件
XUI 是 B4X 提供的一個跨平台 UI 函式庫，能夠在 B4A、B4i 和 B4J 中使用相同的程式碼來創建使用者介面。它支援各種常見的 UI 元件，如按鈕、標籤、文本框等。

Sub CreateButton
    Dim btn As Button
    btn.Initialize("btn")
    btn.Text = "Click Me"
    Activity.AddView(btn, 100, 100, 200, 50)
End Sub

這個範例展示了如何使用 XUI 創建一個按鈕並將其添加到活動中。

範例程式：綜合應用Libraries

以下是一個簡單的範例程式，展示了如何綜合使用多個 B4X Libraries 來創建一個功能強大的應用程式。

Sub Process_Globals
    ' 全域變數
End Sub

Sub Globals
    Dim ToDoList As List
    Dim sql As SQL
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("MainLayout")
    ToDoList.Initialize
    
    ' 初始化資料庫
    sql.Initialize(File.DirInternal, "app_data.db", True)
    CreateDatabase
    
    ' 新增待辦事項
    AddToDoItem("學習B4A", "完成第12章的內容")
    
    ' 顯示當前日期和時間
    ShowCurrentDateTime
    
    ' 發送HTTP請求
    DownloadData("https://api.example.com/data")
End Sub

Sub CreateDatabase
    Dim createTable As String = "CREATE TABLE IF NOT EXISTS todos (id INTEGER PRIMARY KEY, title TEXT, description TEXT)"
    sql.ExecNonQuery(createTable)
End Sub

Sub AddToDoItem(title As String, description As String)
    Dim insertQuery As String = "INSERT INTO todos (title, description) VALUES (?, ?)"
    sql.ExecNonQuery2(insertQuery, Array As Object(title, description))
    Log("To-Do item added: " & title)
End Sub

Sub ShowCurrentDateTime
    Dim currentDate As Long = DateTime.Now
    Dim formattedDate As String = DateTime.Date(currentDate) & " " & DateTime.Time(currentDate)

參考網址
https://www.b4x.com/teach.html
https://www.b4x.com/learn.html